Filename: /text/sbasic/shared/03090412.xhp

Exit Statement [Runtime]
Exit ステートメント [実行時](hd_id3152924.1)

Exits a Do...Loop, For...Next, a function, or a subroutine.
Do...Loop、For...Next、関数、サブルーチンなどを強制的に終了させます。(par_id3153394.2)

Syntax:
構文:(hd_id3149763.3)

see Parameters
パラメータを参照(par_id3159157.4)

Parameters:
パラメータ:(hd_id3148943.5)

Exit Do
Exit Do(par_id3154760.6)

Only valid within a Do...Loop statement to exit the loop. Program execution continues with the statement that follows the Loop statement. If Do...Loop statements are nested, the control is transferred to the loop in the next higher level.
Do...Loop ステートメント内部でのみ使用可能で、ループを強制的に終了させます。プログラムの処理は、終了したループステートメント以降のコードを続行します。Do...Loop ステートメントがネストされている場合、プログラムの処理は、より上位レベルのループに移されます。(par_id3147559.7)

Exit For
Exit For(par_id3150398.8)

Only valid within a For...Next loop to exit the loop. Program execution continues with the first statement that follows the Next statement. In nested statements, the control is transferred to the loop in the next higher level.
For...Next ステートメント内部でのみ使用可能で、ループを強制的に終了させます。プログラムの処理は、終了した Next ステートメント以降のコードを続行します。ステートメントがネストされている場合、プログラムの処理は、より上位レベルのループに移されます。(par_id3148797.9)

Exit Function
Exit Function(par_id3147229.10)

Exits the Function procedure immediately. Program execution continues with the statement that follows the Function call.
Function プロシージャーを強制的に終了させます。プログラムの処理は、該当する Function を呼び出したコードの次にあるステートメントから続行されます。(par_id3154685.11)

Exit Sub
Exit Sub(par_id3155132.12)

Exits the subroutine immediately. Program execution continues with the statement that follows the Sub call.
サブルーチンを強制的に終了させます。プログラムの処理は、該当する Sub を呼び出したコードの次にあるステートメントから続行されます。(par_id3149561.13)

The Exit statement does not define the end of a structure, and must not be confused with the End statement. この Exit ステートメントは、End ステートメントとは異なり、サブルーチンなどのブロックの終了部を宣言するものではないので注意が必要です。(par_id3153143.14)

Example:
例:(hd_id3147348.15)

Sub ExampleExit
Sub ExampleExit(par_id3151113.16)

Dim sReturn As String
Dim sReturn As String(par_id3156283.17)

Dim sListArray(10) as String
Dim sListArray(10) as String(par_id3147125.18)

Dim siStep as Single
Dim siStep as Single(par_id3151073.19)

For siStep = 0 to 10 REM Fill array with test data
For siStep = 0 to 10 REM 配列にテスト用データを代入(par_id3153158.20)

sListArray(siStep) = chr(siStep + 65)
sListArray(siStep) = chr(siStep + 65)(par_id3148457.21)

msgbox sListArray(siStep)
msgbox sListArray(siStep)(par_id3154492.22)

next siStep
Next siStep(par_id3154791.23)

sReturn = LinSearch(sListArray(), "B")
sReturn = LinSearch(sListArray(), "B")(par_id3153510.24)

Print sReturn
Print sReturn(par_id3154513.25)

end sub
end sub(par_id3149121.26)

Function LinSearch( sList(), sItem As String ) as integer
Function LinSearch( sList(), sItem As String ) as integer(par_id3152962.29)

dim iCount as Integer
dim iCount as Integer(par_id3154755.30)

REM LinSearch searches a TextArray:sList() for a TextEntry:
REM LinSearch はテキスト配列: sList() 内に指定文字列を検索:(par_id3153764.31)

REM Returns the index of the entry or 0 ( Null)
REM 戻り値は、該当するインデックス値ないしゼロ (Null)(par_id3148995.32)

for iCount=1 to Ubound( sList() )
for iCount=1 to Ubound( sList() )(par_id3156057.33)

if sList( iCount ) = sItem then
if sList( iCount ) = sItem then(par_id3159266.34)

Exit for REM sItem found
Exit for REM 検索で sItem がヒット(par_id3149567.35)

end if
end if(par_id3147343.36)

next iCount
Next iCount(par_id3155174.37)

if iCount = Ubound( sList() ) then iCount = 0
if iCount = Ubound( sList() ) then iCount = 0(par_id3146313.38)

LinSearch = iCount
LinSearch = iCount(par_id3166448.39)

end function
end function(par_id3146916.40)